E (SETQ $PRINT-BUDGET-MONTHLY nil)
READ (SALARY IN DSK (PRO HE))
READ (DMAoct IN DSK (PRO HE))
BUDGET FIRST-YEAR (DMA1 OUT DSK (PRO HE))
BUDGET SECOND-YEAR (DMA2 OUT DSK (PRO HE))
BUDGET TOTAL (DMA3 OUT DSK (PRO HE))